home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / pixel page (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.8 KB  |  71 lines
  1. 2 ifa=2then63010
  2. 3 ifa>.then160
  3. 4 print""
  4. 7 goto100
  5. 8 :
  6. 10 sys 49154
  7. 20 poke198,0:wait198,1
  8. 30 poke53265,peek(53265)and223
  9. 40 poke53270,peek(53270)and239
  10. 50 poke53272,21
  11. 55 print""
  12. 60 goto63000
  13. 70 :
  14. 80 :
  15. 90 :
  16. 100 v=53248:s=54272
  17. 110 pokev+32,.:pokev+33,.:print"           LOADSTAR Number 8"
  18. 120 print"":print
  19. 130 print:print
  20. 132 print:print
  21. 134 print
  22. 136 printspc(4)chr$(34)"Reflections of a moon walker."chr$(34)
  23. 138 print:print
  24. 139 print:print
  25. 140 print:print
  26. 150 f$=chr$(129)+"pic f moon cvr"
  27. 157 print"    Cover designed by Jimmy Weiler."
  28. 158 print"    Based on an idea from Carol Day.":print
  29. 160 ifa=.thenprint"Loading Picture":a=1:loadf$,8,1
  30. 166 forq=49154to49317:reada:pokeq,a:next
  31. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  32. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  33. 177 pokes+15,3:pokes+7,7:pokes+14,18
  34. 180 print"Press space bar to view cover."
  35. 182 print"Press it again to return to menu."
  36. 185 poke198,0:wait198,1
  37. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  38. 200 :
  39. 300 :
  40. 63000 rem   return back to menu
  41. 63005 ifa=1thena=2:load"routines m3",8,1
  42. 63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
  43. 63020 poke53280,0
  44. 63025 printchr$(14)
  45. 63030 print"Launching Table of Contents";
  46. 63035 print"load"chr$(34)"hello"chr$(34)",8":print"run"
  47. 63040 poke631,13:poke632,13:poke198,2:end
  48. 60050 data173,17,208,41,239,141,17,208
  49. 60060 data162,127,160,64,32,156,192,162
  50. 60070 data4,160,0,32,161,192,162,131
  51. 60080 data160,39,32,114,192,162,131,160
  52. 60090 data40,32,156,192,162,216,160,0
  53. 60100 data32,161,192,162,135,160,15,32
  54. 60110 data114,192,173,16,135,141,33,208
  55. 60120 data173,17,208,9,34,141,17,208
  56. 60130 data173,22,208,41,223,9,16,141
  57. 60140 data22,208,173,24,208,9,8,141
  58. 60150 data24,208,162,96,160,0,32,156
  59. 60160 data192,162,32,160,0,32,161,192
  60. 60170 data162,127,160,63,32,114,192,173
  61. 60180 data17,208,9,16,141,17,208,96
  62. 60190 data142,1,192,140,0,192,160,0
  63. 60200 data177,251,145,253,165,252,205,1
  64. 60210 data192,208,8,165,251,205,0,192
  65. 60220 data208,1,96,230,251,208,2,230
  66. 60230 data252,230,253,208,227,230,254,76
  67. 60240 data122,192,134,252,132,251,96,134
  68. 60250 data254,132,253,96
  69. 63045 :
  70. 63047 :
  71.